home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / design60.zip / VARS.INC < prev    next >
Text File  |  1993-04-19  |  1KB  |  63 lines

  1. Program Design;
  2. {$V-}
  3. {
  4.  Started 04-18-87
  5.  Allows custom designing of database programs.
  6.  Generates the Turbo Pascal source code for
  7.  the application.
  8.  
  9.  Jerry Adkins
  10.  Box 1160
  11.  Rialto, CA 92376
  12. }
  13.  
  14. const
  15.    demo = true;
  16.    filename  = 'dfc.dat';
  17.    keyfilename = 'dfc.tmp';
  18.    prnfile   = 'dfc.prn';
  19.    setupfile = 'dfcolor.dat';
  20.    scratch  = 'scratch.dat';
  21.    waiver   = 'waiver.dfc';
  22.    recsize  = 700;
  23.    { The following formats are used in the Print_Using Procedure }
  24.    phn = '(###)###-####'; { Phone number format }
  25.    day = '##/##/##';      { Date format }
  26.    ss  = '###-##-####';   { Social Security number format }
  27.    F10 = #68;
  28.    F8 = #66;
  29.    F7 = #65;
  30.    F6 = '@';     { IBM Function key codes    Fx }
  31.    F5 = '?';
  32.    F4 = '>';
  33.    F3 = '=';
  34.    F2 = '<';
  35.    F1 = ';';
  36.  
  37.    arrow = #16;
  38.    lf = #10; cr = #13; esc = #27;
  39.  
  40. type
  41.    String200 = String[200];
  42.    String150 = String[150];
  43.    String80  = String[80];
  44.    String75  = String[75];
  45.    String65  = String[65];
  46.    String60  = String[60];
  47.    String40  = String[40];
  48.    String30  = String[30];
  49.    String25  = String[25];
  50.    String20  = String[20];
  51.    String15  = String[15];
  52.    String12  = String[12];
  53.    String10  = String[10];
  54.    String6   = String[6];
  55.    String5   = String[5];
  56.    String4   = String[4];
  57.    String3   = String[3];
  58.    String2   = String[2];
  59.    String1   = String[1];
  60.  
  61.    Choices      = Array[1..12] of String25;
  62.  
  63.